home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 June / 64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64 / wir machen musik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  740b  |  32 lines
  1. 100 rem--------------------------------
  2. 110 rem wir machen musik
  3. 120 rem -------------------------------
  4. 130 s=54272
  5. 140 read a,d,su,r,c,p,f,m,ff,fr,ml
  6. 150 poke s+5 ,16*a +d
  7. 160 poke s+6 ,16*su+r
  8. 170 poke s+2 ,p and 255
  9. 180 poke s+3 ,p/256
  10. 190 hi=int(f/256):lo=f-256*hi
  11. 200 poke s   ,lo
  12. 210 poke s+1 ,hi
  13. 220 poke s+22,ff
  14. 230 poke s+23,fr
  15. 240 poke s+24,ml
  16. 250 get a$:if a$="" then 250
  17. 260 : poke s+4,c or 1
  18. 270 : for i=1 to m:next i
  19. 280 : poke s+4,c and 254
  20. 290 goto 250
  21. 300 rem--------------------------------
  22. 305 rem parameter
  23. 310 rem--------------------------------
  24. 320 data 0,10,0,10:rem a d s r
  25. 330 data 16       :rem control-byte
  26. 340 data 2048     :rem pulsweite
  27. 350 data 40000    :rem tonhoehe
  28. 360 data 100      :rem verzoegerung
  29. 370 data 50       :rem filterfrequenz
  30. 380 data 0        :rem filterresonanz
  31. 390 data 15       :rem modus/laut
  32.